home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / basic3 / pro5 / circa.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1979-12-31  |  512 b   |  24 lines
  1. 100  PRINT
  2. 110  PRINT "C6P5: Chapter 6 Program 5"
  3. 120  PRINT "Draw Random Filled Circles"
  4. 130  PRINT "Press any key to proceed..."
  5. 140  IF INKEY$ = "" THEN 140
  6. 150  'set up the graphics screen
  7. 160  CLS
  8. 170  KEY OFF
  9. 180  SCREEN 1
  10. 190  RANDOMIZE (0)
  11. 200  'draw circles until a keystroke
  12. 210  X = INT(320*RND)
  13. 220  Y = INT(200*RND)
  14. 230  RADIUS = INT(25*RND)
  15. 240  TINT = 1+2*RND
  16. 250  CIRCLE (X,Y),RADIUS,TINT,,,1
  17. 260  PAINT (X,Y),TINT,TINT
  18. 270  LOCATE 12,10
  19. 280  PRINT "Press any key to stop"
  20. 290  IF INKEY$ = "" THEN 210
  21. 300  'restore the text screen
  22. 310  SCREEN 0,1
  23. 320  END
  24.